
#include flow.ss
#include io.ss

#define s dup 1 sub if "s" outputascii endif pop

99 //bottles of beers!

while
	dup output 0 "bottle" outputstring s
	0 " of beer on the wall, " outputstring

	dup output 0 "bottle" outputstring s
	0 " of beer.\n" outputstring
	
	1 sub
	
	0 "Take one down, pass it around, " outputstring
	
	dup output 0 "bottle" outputstring s
	0 " of beer on the wall.\n\n" outputstring
wend

0 "No more bottles of beer on the wall, no more bottles of beer.\n" outputstring
0 "Go to the store and buy some more, 99 bottles of beer on the wall.\n" outputstring